function [code] = levenstein_code(number)
	if (number == 0)
		code = 0;
	else
		code = [];
		c = 0;
		while (number ~= 0)
			bi = de2bi(number); 
			number = length(bi) - 1;
			code = [bi(number:-1:1), code];
			c = c + 1;
		end;
		code = [ones(1, c), 0, code];
	end;
end
